home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue24 / survive / DMDATA.DFM / DMDATA.txt
Encoding:
Text File  |  1997-06-23  |  3.6 KB  |  126 lines
  1. object dmDataModule: TdmDataModule
  2.   OnCreate = dmDataModuleCreate
  3.   OnDestroy = dmDataModuleDestroy
  4.   Left = 200
  5.   Top = 104
  6.   Height = 302
  7.   Width = 352
  8.   object dbDemo: TDatabase
  9.     AliasName = 'SCS9708'
  10.     Connected = True
  11.     DatabaseName = 'DemoDb'
  12.     LoginPrompt = False
  13.     Params.Strings = (
  14.       'USER NAME=SYSDBA'
  15.       'PASSWORD=masterkey')
  16.     SessionName = 'Default'
  17.     Left = 30
  18.     Top = 11
  19.   end
  20.   object qryCreditIssue: TQuery
  21.     DatabaseName = 'DemoDb'
  22.     Params.Data = {
  23.       0100030006616D6F756E740000000006616D6F756E7400000000084372656469
  24.       744E6F00000000}
  25.     SQL.Strings = (
  26.       'update Credits'
  27.       
  28.         '  set status = '#39'I'#39', amount = :amount, balancedue = :amount, issu' +
  29.         'edatetime = '#39'now'#39
  30.       '  where CreditNo = :CreditNo')
  31.     Left = 30
  32.     Top = 123
  33.   end
  34.   object spCreditNew: TStoredProc
  35.     DatabaseName = 'DemoDb'
  36.     StoredProcName = 'CREDITNEW'
  37.     Params.Data = {
  38.       0100030009494352454449544E4F010304000000000000000749435553544E4F
  39.       01030400000000000000094F4352454449544E4F02030400000000000000}
  40.     Left = 28
  41.     Top = 70
  42.   end
  43.   object qryCreditsOutByCustomer: TQuery
  44.     DatabaseName = 'DemoDb'
  45.     Params.Data = {0100010006437573744E6F00030400000000000000}
  46.     SQL.Strings = (
  47.       'select * from Credits'
  48.       '  where CustNo = :CustNo and'
  49.       '             status = '#39'I'#39
  50.       '  order by CreditNo'
  51.       '')
  52.     Left = 135
  53.     Top = 120
  54.     object qryCreditsOutByCustomerCREDITNO: TIntegerField
  55.       DisplayLabel = 'Num'
  56.       FieldName = 'CREDITNO'
  57.     end
  58.     object qryCreditsOutByCustomerAMOUNT: TFloatField
  59.       DisplayLabel = 'Amount'
  60.       FieldName = 'AMOUNT'
  61.       Currency = True
  62.     end
  63.     object qryCreditsOutByCustomerBALANCEDUE: TFloatField
  64.       DisplayLabel = 'Balance Due'
  65.       FieldName = 'BALANCEDUE'
  66.       Currency = True
  67.     end
  68.     object qryCreditsOutByCustomerISSUEDATETIME: TDateTimeField
  69.       DisplayLabel = 'Issue Date'
  70.       DisplayWidth = 18
  71.       FieldName = 'ISSUEDATETIME'
  72.     end
  73.   end
  74.   object qryPaymentMethodsGet: TQuery
  75.     DatabaseName = 'DemoDb'
  76.     SQL.Strings = (
  77.       'select * from PaymentMethods order by Sequence')
  78.     Left = 134
  79.     Top = 72
  80.   end
  81.   object spPaymentSave: TStoredProc
  82.     DatabaseName = 'DemoDb'
  83.     StoredProcName = 'PAYMENTSAVE'
  84.     Params.Data = {
  85.       010003000749435553544E4F010304000000000000000749414D4F554E540103
  86.       04000000000000000A4F5041594D454E544E4F02030400000000000000}
  87.     Left = 258
  88.     Top = 71
  89.   end
  90.   object qryPaymentCreditSave: TQuery
  91.     DatabaseName = 'DemoDb'
  92.     Params.Data = {
  93.       01000400095061796D656E744E6F00000000084372656469744E6F0000000006
  94.       416D6F756E74000000000A42616C616E636544756500000000}
  95.     SQL.Strings = (
  96.       
  97.         'insert into PaymentCredits (PaymentNo, CreditNo, Amount, Balance' +
  98.         'Due)'
  99.       '  values (:PaymentNo, :CreditNo, :Amount, :BalanceDue)')
  100.     Left = 128
  101.     Top = 196
  102.   end
  103.   object qryPaymentAllocSave: TQuery
  104.     DatabaseName = 'DemoDb'
  105.     Params.Data = {
  106.       01000400095061796D656E744E6F00000000084372656469744E6F000000000D
  107.       5061794D6574686F64436F64650000000006416D6F756E7400000000}
  108.     SQL.Strings = (
  109.       
  110.         'insert into PaymentAllocation (PaymentNo, CreditNo, PayMethodCod' +
  111.         'e, Amount)'
  112.       '   values (:PaymentNo, :CreditNo, :PayMethodCode, :Amount)')
  113.     Left = 263
  114.     Top = 175
  115.   end
  116.   object spPaymentCreditSave: TStoredProc
  117.     DatabaseName = 'DemoDb'
  118.     StoredProcName = 'PAYMENTCREDITSAVE'
  119.     Params.Data = {
  120.       010003000A495041594D454E544E4F0103040000000000000009494352454449
  121.       544E4F010304000000000000000749414D4F554E5401030400000000000000}
  122.     Left = 260
  123.     Top = 126
  124.   end
  125. end
  126.